home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 February / EnigmA AMIGA RUN 15 (1997)(G.R. Edizioni)(IT)[!][issue 1997-02][PLANET CD V].iso / enigma / earcd / emula / arosdv19.lha / AROS / graphics / setapen.c < prev    next >
C/C++ Source or Header  |  1996-11-08  |  1KB  |  57 lines
  1. /*
  2.     (C) 1995 AROS - The Amiga Replacement OS
  3.     $Id: setapen.c,v 1.7 1996/11/08 11:27:56 aros Exp $
  4.  
  5.     Desc: Graphics function SetAPen()
  6.     Lang: english
  7. */
  8. #include "graphics_intern.h"
  9. #include <graphics/rastport.h>
  10.  
  11. /*****************************************************************************
  12.  
  13.     NAME */
  14.     #include <graphics/rastport.h>
  15.     #include <clib/graphics_protos.h>
  16.  
  17.     AROS_LH2(void, SetAPen,
  18.  
  19. /*  SYNOPSIS */
  20.     AROS_LHA(struct RastPort *, rp, A1),
  21.     AROS_LHA(ULONG            , pen, D0),
  22.  
  23. /*  LOCATION */
  24.     struct GfxBase *, GfxBase, 57, Graphics)
  25.  
  26. /*  FUNCTION
  27.  
  28.     INPUTS
  29.  
  30.     RESULT
  31.  
  32.     NOTES
  33.  
  34.     EXAMPLE
  35.  
  36.     BUGS
  37.  
  38.     SEE ALSO
  39.  
  40.     INTERNALS
  41.  
  42.     HISTORY
  43.     29-10-95    digulla automatically created from
  44.                 graphics_lib.fd and clib/graphics_protos.h
  45.  
  46. *****************************************************************************/
  47. {
  48.     AROS_LIBFUNC_INIT
  49.     AROS_LIBBASE_EXT_DECL(struct GfxBase *,GfxBase)
  50.  
  51.     driver_SetAPen (rp, pen, GfxBase);
  52.  
  53.     rp->FgPen = pen;
  54.  
  55.     AROS_LIBFUNC_EXIT
  56. } /* SetAPen */
  57.